home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / R-Shows / (c)sdg.d64 / tiny graphics 2 (.txt) < prev   
Commodore BASIC  |  2007-02-04  |  541b  |  18 lines
  1. 100 VIC=53248:FOR I=1 TO 4: FOR J=1 TO 3:READ SY$(I,J),ND(I,J):NEXT J,I
  2. 110 FOR I=1 TO4:READ RC(I),CC(I):NEXTI
  3. 120 D=INT(RND(1)*4+1)
  4. 130 R=12:C=20:PRINT"[147]";TAB(C);"+[157]";:POKE VIC+33,0
  5. 140 R=R+RC(D):C=C+CC(D):N=6
  6. 150 T=INT(RND(1)*N+1):IF T>3 THEN T=3
  7. 160 ND=ND(D,T):R2=R+RC(ND):C2=C+CC(ND)
  8. 170 IF R2<1 OR R2>23 OR C2<1 OR C2>38 THEN 150
  9. 180 IF RND(1)>.96 THEN PRINT LEFT$("[159][156][158][129]", RND(1)*5+1);
  10. 190 PRINT MID$("[145][157]",D,1);SY$(D,T);"[157]";
  11. 200 GETA$:IF A$="Q" THEN END
  12. 210 D=ND:R=R2:C=C2:GOTO150
  13. 260 DATA "[176]",2,"[174]",4,"[221]",1
  14. 270 DATA "[174]",3,"[189]",1,"[192]",2
  15. 280 DATA "[189]",4,"[173]",2,"[221]",3
  16. 290 DATA "[173]",1,"[176]",3,"[192]",4
  17. 300 DATA -1,0,0,1,1,0,0,-1
  18.